home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / popupbox / example1.dfm / example1.txt next >
Encoding:
Text File  |  1996-09-15  |  20.7 KB  |  819 lines
  1. object Form1: TForm1
  2.   Left = 369
  3.   Top = 117
  4.   ActiveControl = TabbedNotebook1
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   BorderStyle = bsSingle
  7.   Caption = 'A view of the PopupBox Component'
  8.   ClientHeight = 440
  9.   ClientWidth = 620
  10.   Color = clSilver
  11.   Font.Color = clWindowText
  12.   Font.Height = -18
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   PixelsPerInch = 120
  16.   Position = poScreenCenter
  17.   OnShow = FormShow
  18.   TextHeight = 20
  19.   object Label1: TLabel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 620
  23.     Height = 29
  24.     Align = alTop
  25.     Alignment = taCenter
  26.     Caption = 'PopupBox - Component'
  27.     Font.Color = clMaroon
  28.     Font.Height = -23
  29.     Font.Name = 'Helv'
  30.     Font.Style = [fsBold, fsUnderline]
  31.     ParentFont = False
  32.   end
  33.   object TabbedNotebook1: TTabbedNotebook
  34.     Left = 0
  35.     Top = 44
  36.     Width = 620
  37.     Height = 396
  38.     Align = alBottom
  39.     Font.Color = clBlack
  40.     Font.Height = -17
  41.     Font.Name = 'System'
  42.     Font.Style = [fsBold]
  43.     TabsPerRow = 4
  44.     TabFont.Color = clBlack
  45.     TabFont.Height = -13
  46.     TabFont.Name = 'Helv'
  47.     TabFont.Style = []
  48.     TabOrder = 0
  49.     TabStop = False
  50.     object TTabPage
  51.       Left = 5
  52.       Top = 29
  53.       Caption = 'What is this?'
  54.       object Image1: TImage
  55.         Left = 24
  56.         Top = 40
  57.         Width = 49
  58.         Height = 48
  59.         Picture.Data = {<image000.bmp>}
  60.         Stretch = True
  61.       end
  62.       object Label2: TLabel
  63.         Left = 108
  64.         Top = 35
  65.         Width = 488
  66.         Height = 146
  67.         AutoSize = False
  68.         Caption = 
  69.           'The PopupBox-Component is a replacement for the ComboBox with st' +
  70.           'yle csDropDownList.'#10#10'Because I am altogether dissatisfied with t' +
  71.           'he combobox, it'#39's look and functionality, I made the decision to' +
  72.           ' write my own component. And here it is!'
  73.         FocusControl = CheckBox1
  74.         Font.Color = clBlack
  75.         Font.Height = -17
  76.         Font.Name = 'Helv'
  77.         Font.Style = []
  78.         ParentFont = False
  79.         WordWrap = True
  80.       end
  81.       object Label3: TLabel
  82.         Left = 108
  83.         Top = 188
  84.         Width = 488
  85.         Height = 101
  86.         AutoSize = False
  87.         Caption = 
  88.           'The PopupBox looks like an Edit- or Memofield, but it is not edi' +
  89.           'table. If you click on it, a list opens up. You may select one o' +
  90.           'f the list-entries. This entry will then become the current Text' +
  91.           ' of then PopupBox-field.'
  92.         Font.Color = clBlack
  93.         Font.Height = -17
  94.         Font.Name = 'Helv'
  95.         Font.Style = []
  96.         ParentFont = False
  97.         WordWrap = True
  98.       end
  99.       object Label4: TLabel
  100.         Left = 108
  101.         Top = 295
  102.         Width = 488
  103.         Height = 66
  104.         AutoSize = False
  105.         Caption = 
  106.           'Optional the next window-control can be automatically focused. B' +
  107.           'ut look yourself!'
  108.         Font.Color = clBlack
  109.         Font.Height = -17
  110.         Font.Name = 'Helv'
  111.         Font.Style = []
  112.         ParentFont = False
  113.       end
  114.     end
  115.     object TTabPage
  116.       Left = 5
  117.       Top = 29
  118.       Caption = 'Example'
  119.       object Bevel1: TBevel
  120.         Left = 43
  121.         Top = 48
  122.         Width = 476
  123.         Height = 105
  124.       end
  125.       object Label5: TLabel
  126.         Left = 43
  127.         Top = 20
  128.         Width = 468
  129.         Height = 20
  130.         AutoSize = False
  131.         Caption = 'These 3 fields could be a part of an input dialog:'
  132.         Font.Color = clNavy
  133.         Font.Height = -17
  134.         Font.Name = 'Helv'
  135.         Font.Style = []
  136.         ParentFont = False
  137.       end
  138.       object Label6: TLabel
  139.         Left = 52
  140.         Top = 66
  141.         Width = 157
  142.         Height = 17
  143.         Alignment = taCenter
  144.         AutoSize = False
  145.         Caption = 'a Standard-Editfield:'
  146.         Font.Color = clMaroon
  147.         Font.Height = -15
  148.         Font.Name = 'Helvetica'
  149.         Font.Style = []
  150.         ParentFont = False
  151.       end
  152.       object Label7: TLabel
  153.         Left = 354
  154.         Top = 66
  155.         Width = 161
  156.         Height = 17
  157.         Alignment = taCenter
  158.         AutoSize = False
  159.         Caption = 'a Standard-Editfield:'
  160.         Font.Color = clMaroon
  161.         Font.Height = -15
  162.         Font.Name = 'Helvetica'
  163.         Font.Style = []
  164.         ParentFont = False
  165.       end
  166.       object Label8: TLabel
  167.         Left = 214
  168.         Top = 66
  169.         Width = 134
  170.         Height = 17
  171.         AutoSize = False
  172.         Caption = 'a PopupBox-field:'
  173.         Font.Color = clMaroon
  174.         Font.Height = -15
  175.         Font.Name = 'Helvetica'
  176.         Font.Style = []
  177.         ParentFont = False
  178.       end
  179.       object Label9: TLabel
  180.         Left = 43
  181.         Top = 165
  182.         Width = 528
  183.         Height = 44
  184.         AutoSize = False
  185.         Caption = 
  186.           'You can move from field to field by pressing RETURN- or TAB- Key' +
  187.           '.'
  188.         Font.Color = clBlack
  189.         Font.Height = -17
  190.         Font.Name = 'Helv'
  191.         Font.Style = [fsItalic]
  192.         ParentFont = False
  193.       end
  194.       object Edit1: TEdit
  195.         Left = 66
  196.         Top = 86
  197.         Width = 133
  198.         Height = 33
  199.         AutoSelect = False
  200.         AutoSize = False
  201.         Font.Color = clBlack
  202.         Font.Height = -17
  203.         Font.Name = 'System'
  204.         Font.Style = [fsBold]
  205.         ParentFont = False
  206.         TabOrder = 0
  207.         Text = 'simple text'
  208.         OnKeyPress = Edit1KeyPress
  209.       end
  210.       object Edit2: TEdit
  211.         Left = 370
  212.         Top = 86
  213.         Width = 133
  214.         Height = 33
  215.         AutoSelect = False
  216.         AutoSize = False
  217.         Font.Color = clBlack
  218.         Font.Height = -17
  219.         Font.Name = 'System'
  220.         Font.Style = [fsBold]
  221.         ParentFont = False
  222.         TabOrder = 2
  223.         Text = 'other text'
  224.         OnKeyPress = Edit2KeyPress
  225.       end
  226.       object PopupBox1: TPopupBox
  227.         Left = 214
  228.         Top = 86
  229.         Width = 134
  230.         Height = 33
  231.         Cursor = crArrow
  232.         Alignment = taCenter
  233.         AutoSize = False
  234.         Font.Color = clBlack
  235.         Font.Height = -17
  236.         Font.Name = 'System'
  237.         Font.Style = [fsBold]
  238.         ParentFont = False
  239.         TabOrder = 1
  240.         Text = 'PopupBox'
  241.         ListItems.Strings = (
  242.           'Athens'
  243.           'Berlin'
  244.           'Brussels'
  245.           'Bucharest'
  246.           'Copenhagen'
  247.           'Dublin'
  248.           'Helsinki'
  249.           'London'
  250.           'Luxembourg'
  251.           'Madrid'
  252.           'Moscow'
  253.           'Oslo'
  254.           'Ottawa'
  255.           'Paris'
  256.           'Prague'
  257.           'Rome'
  258.           'Stockholm'
  259.           'Tokyo'
  260.           'Vienna'
  261.           'Warsaw'
  262.           'Washington')
  263.         ListAlignment = taLeftJustify
  264.         ListFont.Color = clBlack
  265.         ListFont.Height = -17
  266.         ListFont.Name = 'System'
  267.         ListFont.Style = [fsBold]
  268.         ListItemHeight = 28
  269.         ListSorted = True
  270.         ListWidth = 145
  271.         ListHeight = 115
  272.       end
  273.       object GroupBox1: TGroupBox
  274.         Left = 43
  275.         Top = 216
  276.         Width = 525
  277.         Height = 122
  278.         TabOrder = 3
  279.         object Label10: TLabel
  280.           Left = 13
  281.           Top = 24
  282.           Width = 292
  283.           Height = 94
  284.           AutoSize = False
  285.           Caption = 
  286.             'If you don'#39't like the way, PopupBox handles RETURN / MouseClicks' +
  287.             ', you can simply switch off this behaviour in Delphis Objectinsp' +
  288.             'ector.'
  289.           Font.Color = clNavy
  290.           Font.Height = -17
  291.           Font.Name = 'Helv'
  292.           Font.Style = []
  293.           ParentFont = False
  294.           WordWrap = True
  295.         end
  296.         object CheckBox1: TCheckBox
  297.           Left = 320
  298.           Top = 30
  299.           Width = 193
  300.           Height = 33
  301.           Caption = 'GoAwayOnClick'
  302.           State = cbChecked
  303.           TabOrder = 0
  304.           OnClick = CheckBox1Click
  305.         end
  306.         object CheckBox2: TCheckBox
  307.           Left = 320
  308.           Top = 68
  309.           Width = 193
  310.           Height = 33
  311.           Caption = 'GoAwayOnReturn'
  312.           State = cbChecked
  313.           TabOrder = 1
  314.           OnClick = CheckBox2Click
  315.         end
  316.       end
  317.     end
  318.     object TTabPage
  319.       Left = 5
  320.       Top = 29
  321.       Caption = 'Other Styles'
  322.       object Bevel2: TBevel
  323.         Left = 0
  324.         Top = 304
  325.         Width = 610
  326.         Height = 58
  327.         Align = alBottom
  328.         Shape = bsFrame
  329.       end
  330.       object Label11: TLabel
  331.         Left = 8
  332.         Top = 31
  333.         Width = 213
  334.         Height = 20
  335.         Alignment = taCenter
  336.         AutoSize = False
  337.         Caption = 'adjustable position and size'
  338.         Font.Color = clMaroon
  339.         Font.Height = -15
  340.         Font.Name = 'Helv'
  341.         Font.Style = []
  342.         ParentFont = False
  343.       end
  344.       object Label12: TLabel
  345.         Left = 256
  346.         Top = 32
  347.         Width = 245
  348.         Height = 20
  349.         Alignment = taCenter
  350.         AutoSize = False
  351.         Caption = 'different alignments of field and list'
  352.         Font.Color = clMaroon
  353.         Font.Height = -15
  354.         Font.Name = 'Helv'
  355.         Font.Style = []
  356.         ParentFont = False
  357.       end
  358.       object Label15: TLabel
  359.         Left = 12
  360.         Top = 229
  361.         Width = 33
  362.         Height = 38
  363.         Alignment = taRightJustify
  364.         AutoSize = False
  365.         Caption = '2D'#10'list'
  366.         Font.Color = clMaroon
  367.         Font.Height = -15
  368.         Font.Name = 'Helv'
  369.         Font.Style = []
  370.         ParentFont = False
  371.       end
  372.       object Label16: TLabel
  373.         Left = 236
  374.         Top = 233
  375.         Width = 98
  376.         Height = 40
  377.         Alignment = taRightJustify
  378.         AutoSize = False
  379.         Caption = 'ownerdraw- PopupBox'
  380.         Font.Color = clMaroon
  381.         Font.Height = -15
  382.         Font.Name = 'Helv'
  383.         Font.Style = []
  384.         ParentFont = False
  385.       end
  386.       object Label17: TLabel
  387.         Left = 8
  388.         Top = 307
  389.         Width = 597
  390.         Height = 48
  391.         AutoSize = False
  392.         Caption = 
  393.           'There are still a few other settings, wich can change the PopupB' +
  394.           'ox style. Try out and make your application look personally and ' +
  395.           'impressive!'
  396.         Font.Color = clNavy
  397.         Font.Height = -17
  398.         Font.Name = 'Helv'
  399.         Font.Style = []
  400.         ParentFont = False
  401.       end
  402.       object Label14: TLabel
  403.         Left = 377
  404.         Top = 116
  405.         Width = 172
  406.         Height = 21
  407.         Alignment = taCenter
  408.         AutoSize = False
  409.         Caption = 'free adjustable colors'
  410.         Font.Color = clMaroon
  411.         Font.Height = -15
  412.         Font.Name = 'Helv'
  413.         Font.Style = []
  414.         ParentFont = False
  415.       end
  416.       object Label13: TLabel
  417.         Left = 60
  418.         Top = 116
  419.         Width = 245
  420.         Height = 22
  421.         Alignment = taCenter
  422.         AutoSize = False
  423.         Caption = 'different fonts for field and list'
  424.         Font.Color = clMaroon
  425.         Font.Height = -15
  426.         Font.Name = 'Helv'
  427.         Font.Style = []
  428.         ParentFont = False
  429.       end
  430.       object PopupBox2: TPopupBox
  431.         Left = 28
  432.         Top = 53
  433.         Width = 173
  434.         Height = 31
  435.         Cursor = crArrow
  436.         Alignment = taLeftJustify
  437.         AutoSize = False
  438.         TabOrder = 0
  439.         OnEnter = PopupBox2Enter
  440.         ListItems.Strings = (
  441.           'Sunday'
  442.           'Monday'
  443.           'Tuesday'
  444.           'Wednesday'
  445.           'Thursday'
  446.           'Friday'
  447.           'Saturday')
  448.         ListAlignment = taLeftJustify
  449.         ListFont.Color = clBlack
  450.         ListFont.Height = -17
  451.         ListFont.Name = 'System'
  452.         ListFont.Style = [fsBold]
  453.         ListItemHeight = 28
  454.         ListLeft = -20
  455.         ListTop = 30
  456.         ListSorted = False
  457.         ListWidth = 120
  458.         ListHeight = 201
  459.       end
  460.       object PopupBox3: TPopupBox
  461.         Left = 304
  462.         Top = 53
  463.         Width = 149
  464.         Height = 31
  465.         Cursor = crArrow
  466.         Alignment = taCenter
  467.         AutoSize = False
  468.         TabOrder = 1
  469.         OnEnter = PopupBox3Enter
  470.         ListItems.Strings = (
  471.           'Sunday  '
  472.           'Monday  '
  473.           'Tuesday  '
  474.           'Wednesday  '
  475.           'Thursday  '
  476.           'Friday  '
  477.           'Saturday  ')
  478.         ListAlignment = taRightJustify
  479.         ListFont.Color = clBlack
  480.         ListFont.Height = -17
  481.         ListFont.Name = 'System'
  482.         ListFont.Style = [fsBold]
  483.         ListColor = clSilver
  484.         ListItemHeight = 27
  485.         ListSelBGColor = clSilver
  486.         ListLeft = 0
  487.         ListTop = 32
  488.         ListSorted = False
  489.         ListWidth = 149
  490.         ListHeight = 166
  491.       end
  492.       object PopupBox6: TPopupBox
  493.         Left = 51
  494.         Top = 234
  495.         Width = 145
  496.         Height = 30
  497.         Cursor = crArrow
  498.         Alignment = taLeftJustify
  499.         AutoSize = False
  500.         Font.Color = clBlack
  501.         Font.Height = -17
  502.         Font.Name = 'System'
  503.         Font.Style = [fsBold]
  504.         ParentFont = False
  505.         TabOrder = 4
  506.         ListItems.Strings = (
  507.           'John'
  508.           'Karin'
  509.           'Bill'
  510.           'Mary'
  511.           'James'
  512.           'Susan'
  513.           'Mike'
  514.           'Eric'
  515.           'Julia'
  516.           'Thomas'
  517.           'Anne'
  518.           'Michael')
  519.         ListAlignment = taLeftJustify
  520.         ListFont.Color = clBlack
  521.         ListFont.Height = -17
  522.         ListFont.Name = 'System'
  523.         ListFont.Style = [fsBold]
  524.         ListColor = clWhite
  525.         ListItemHeight = 27
  526.         ListSelColor = clHighlightText
  527.         ListSelBGColor = clHighlight
  528.         ListSel3D = False
  529.         ListLeft = 30
  530.         ListTop = -60
  531.         ListSorted = False
  532.         ListWidth = 126
  533.         ListHeight = 150
  534.       end
  535.       object PopupBox7: TPopupBox
  536.         Left = 340
  537.         Top = 238
  538.         Width = 133
  539.         Height = 30
  540.         Cursor = crArrow
  541.         Alignment = taCenter
  542.         AutoSize = False
  543.         TabOrder = 5
  544.         OnEnter = PopupBox7Enter
  545.         OnExit = PopupBox7Exit
  546.         ListAlignment = taLeftJustify
  547.         ListAutoPos = False
  548.         ListFont.Color = clBlack
  549.         ListFont.Height = -15
  550.         ListFont.Name = 'Helv'
  551.         ListFont.Style = []
  552.         ListItemHeight = 26
  553.         ListLeft = 5
  554.         ListTop = -100
  555.         ListSorted = False
  556.         ListWidth = 230
  557.         ListHeight = 193
  558.         OnDrawListItem = PopupBox7DrawListItem
  559.       end
  560.       object PopupBox5: TPopupBox
  561.         Left = 381
  562.         Top = 138
  563.         Width = 165
  564.         Height = 40
  565.         Cursor = crArrow
  566.         Alignment = taLeftJustify
  567.         AutoSize = False
  568.         Color = clWhite
  569.         Font.Color = clMaroon
  570.         Font.Height = -23
  571.         Font.Name = 'Helv'
  572.         Font.Style = []
  573.         ParentFont = False
  574.         TabOrder = 3
  575.         ListItems.Strings = (
  576.           'Sunday'
  577.           'Monday'
  578.           'Tuesday'
  579.           'Wednesday'
  580.           'Thursday'
  581.           'Friday'
  582.           'Saturday')
  583.         ListAlignment = taLeftJustify
  584.         ListFont.Color = clNavy
  585.         ListFont.Height = -17
  586.         ListFont.Name = 'Helv'
  587.         ListFont.Style = [fsBold]
  588.         ListColor = clSilver
  589.         ListItemHeight = 27
  590.         ListIntegralHeight = False
  591.         ListSelColor = clWhite
  592.         ListSelBGColor = 10789024
  593.         ListLeft = 13
  594.         ListTop = 15
  595.         ListSorted = False
  596.         ListWidth = 161
  597.         ListHeight = 131
  598.       end
  599.       object PopupBox4: TPopupBox
  600.         Left = 93
  601.         Top = 138
  602.         Width = 182
  603.         Height = 40
  604.         Cursor = crArrow
  605.         Alignment = taRightJustify
  606.         AutoSize = False
  607.         Color = clWhite
  608.         Ctl3D = True
  609.         Font.Color = clBlack
  610.         Font.Height = -23
  611.         Font.Name = 'Helvetica'
  612.         Font.Style = [fsBold, fsItalic]
  613.         ParentCtl3D = False
  614.         ParentFont = False
  615.         ParentShowHint = False
  616.         ShowHint = False
  617.         TabOrder = 2
  618.         ListItems.Strings = (
  619.           'Sunday '
  620.           'Monday '
  621.           'Tuesday '
  622.           'Wednesday '
  623.           'Thursday '
  624.           'Friday '
  625.           'Saturday ')
  626.         ListAlignment = taCenter
  627.         ListFont.Color = clBlack
  628.         ListFont.Height = -17
  629.         ListFont.Name = 'Courier'
  630.         ListFont.Style = []
  631.         ListHint = 'This is a PopupBox-list!'
  632.         ListItemHeight = 28
  633.         ListIntegralHeight = False
  634.         ListLeft = 2
  635.         ListTop = 30
  636.         ListSorted = False
  637.         ListWidth = 200
  638.         ListHeight = 166
  639.       end
  640.     end
  641.     object TTabPage
  642.       Left = 5
  643.       Top = 29
  644.       Caption = 'Can I use it free?'
  645.       object Label18: TLabel
  646.         Left = 40
  647.         Top = 8
  648.         Width = 529
  649.         Height = 45
  650.         AutoSize = False
  651.         Caption = 'Yes, you can use the PopupBox-Component free.'
  652.         Font.Color = clBlack
  653.         Font.Height = -17
  654.         Font.Name = 'Helv'
  655.         Font.Style = []
  656.         ParentFont = False
  657.       end
  658.       object Label19: TLabel
  659.         Left = 40
  660.         Top = 48
  661.         Width = 541
  662.         Height = 57
  663.         AutoSize = False
  664.         Caption = 
  665.           'If you need (or would like to have) the source-code of this comp' +
  666.           'onent, then you have to register it.'
  667.         Font.Color = clMaroon
  668.         Font.Height = -17
  669.         Font.Name = 'Helv'
  670.         Font.Style = []
  671.         ParentFont = False
  672.       end
  673.       object Label20: TLabel
  674.         Left = 40
  675.         Top = 108
  676.         Width = 478
  677.         Height = 61
  678.         AutoSize = False
  679.         Caption = 'The registration fee is only $10.00 (or 15,00 DM).'
  680.         Font.Color = clBlack
  681.         Font.Height = -17
  682.         Font.Name = 'Helv'
  683.         Font.Style = [fsUnderline]
  684.         ParentFont = False
  685.       end
  686.       object Label21: TLabel
  687.         Left = 40
  688.         Top = 148
  689.         Width = 541
  690.         Height = 30
  691.         AutoSize = False
  692.         Caption = 'How to register?'
  693.         Font.Color = clBlack
  694.         Font.Height = -17
  695.         Font.Name = 'Helv'
  696.         Font.Style = [fsBold]
  697.         ParentFont = False
  698.       end
  699.       object Label22: TLabel
  700.         Left = 40
  701.         Top = 309
  702.         Width = 401
  703.         Height = 46
  704.         AutoSize = False
  705.         Caption = 
  706.           'I will e-mail you immediately the'#10'source code of the latest vers' +
  707.           'ion!'
  708.         Font.Color = clBlack
  709.         Font.Height = -17
  710.         Font.Name = 'Helv'
  711.         Font.Style = [fsBold]
  712.         ParentFont = False
  713.       end
  714.       object Image2: TImage
  715.         Left = 300
  716.         Top = 179
  717.         Width = 21
  718.         Height = 12
  719.         Picture.Data = {<image001.bmp>}
  720.       end
  721.       object Image3: TImage
  722.         Left = 13
  723.         Top = 13
  724.         Width = 28
  725.         Height = 13
  726.         Picture.Data = {<image002.bmp>}
  727.       end
  728.       object Image4: TImage
  729.         Left = 13
  730.         Top = 313
  731.         Width = 23
  732.         Height = 23
  733.         Picture.Data = {<image003.bmp>}
  734.       end
  735.       object Image5: TImage
  736.         Left = 13
  737.         Top = 53
  738.         Width = 23
  739.         Height = 18
  740.         Picture.Data = {<image004.bmp>}
  741.       end
  742.       object Image6: TImage
  743.         Left = 13
  744.         Top = 113
  745.         Width = 23
  746.         Height = 18
  747.         Picture.Data = {<image005.bmp>}
  748.       end
  749.       object Image7: TImage
  750.         Left = 13
  751.         Top = 179
  752.         Width = 18
  753.         Height = 22
  754.         Picture.Data = {<image006.bmp>}
  755.       end
  756.       object Label23: TLabel
  757.         Left = 40
  758.         Top = 176
  759.         Width = 221
  760.         Height = 117
  761.         AutoSize = False
  762.         Caption = 
  763.           'If you have a CompuServe account, you can register with GO SWREG' +
  764.           ' . Look for #6032.'
  765.         Font.Color = clBlack
  766.         Font.Height = -17
  767.         Font.Name = 'Helv'
  768.         Font.Style = []
  769.         ParentFont = False
  770.       end
  771.       object Label24: TLabel
  772.         Left = 328
  773.         Top = 176
  774.         Width = 270
  775.         Height = 137
  776.         AutoSize = False
  777.         Caption = 
  778.           'The other possibility is to send me the money cash to:'#10'     Jan ' +
  779.           '- M. Strube'#10'     Breslauer Str. 19'#10'     70806 Kornwestheim'#10'     ' +
  780.           'GERMANY'
  781.         Font.Color = clBlack
  782.         Font.Height = -17
  783.         Font.Name = 'Helv'
  784.         Font.Style = []
  785.         ParentFont = False
  786.       end
  787.       object BitBtn1: TBitBtn
  788.         Left = 493
  789.         Top = 319
  790.         Width = 112
  791.         Height = 34
  792.         Caption = 'Read me'
  793.         Font.Color = clBlack
  794.         Font.Height = -17
  795.         Font.Name = 'Helv'
  796.         Font.Style = []
  797.         ParentFont = False
  798.         TabOrder = 0
  799.         OnClick = BitBtn1Click
  800.         Glyph.Data = {
  801.           76010000424D7601000000000000760000002800000020000000100000000100
  802.           04000000000000010000130B0000130B00000000000000000000000000000000
  803.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  804.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  805.           333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  806.           0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  807.           07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  808.           07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
  809.           0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
  810.           33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
  811.           B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  812.           3BB33773333773333773B333333B3333333B7333333733333337}
  813.         NumGlyphs = 2
  814.         Spacing = 12
  815.       end
  816.     end
  817.   end
  818. end
  819.